home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 159
/
159.d81
/
b.hams menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
44 lines
10 poke56,56:clr:dv=peek(186):ifdv<8thendv=8
12 poke53281,0:poke53280,0:print"[147]":gosub60000
20 sys57812"hams.fnt",dv,0:poke780,0:poke781,0:poke782,56:sys65493
30 poke53272,31:poke53280,.:poke53281,.
40 print"[147]"spc(8)" [212]he [200].[193].[205].[211]. [205]ain [205]enu [146]"
50 print:printspc(10)"1. [158][208]ack new movie"
60 print:printspc(10)"2. [158][205]odify existing data file"
70 print:printspc(10)"3. [158][205]ake executable file"
80 print:printspc(10)"4. [158][209]uit to [204][207][193][196][211][212][193][210]"
90 print:printspc(10)" [208]lease [195]hoose [207]ne [146]"
100 geta$:ifa$=""then100
110 ifa$<"1"ora$>"4"then100
120 a=val(a$):onagoto130,140,150,40000
130 f$="hams.packer":hb=8:lb=1:goto160
140 f$="hams.modify":hb=32:lb=1:goto160
150 f$="hams.linker":hb=32:lb=1
160 poke53281,15:poke53280,15
165 print"[147][155]p[207]"256*hb"[157],0:p[207]43,"lb"[157]:p[207]44,"hb"[157]:clr"
170 print"l[207]"chr$(34)f$chr$(34)","dv"";:poke2039,dv
180 poke631,13:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
190 poke53272,23:end
999 stop
10000 d=peek(186):n$="b.hams menu":open15,d,15,"s0:"+n$:close15:saven$,d:end
40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
40030 forj=8to29:i=peek(820+j):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:return
40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end
60000 print"[147]":z$=" [152] ":poke214,10:print
60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 z$(0)="[200]. [193]. [205]. [211].
60040 z$(2)[178]"by (NULL)ay (NULL)arrish
60050 z$(4)="(c) 1997 by [202] & [198] [208]ublishing, [201]nc."
60060 z$(6)="[212]his program is not shareware
60070 z$(7)[178]"or in the public domain."
60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718
60090 poke214,12:print:fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return